(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2908,         84]
NotebookOptionsPosition[      2598,         70]
NotebookOutlinePosition[      2955,         86]
CellTagsIndexPosition[      2912,         83]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"range", "=", "100"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"starter", "=", "27"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"starter", ",", "range"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"n", "=", "starter"}], ";", 
     RowBox[{"i", "=", "2"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", "range"}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OddQ", "[", "n", "]"}], ",", 
       RowBox[{"n", "=", 
        RowBox[{
         RowBox[{"3", " ", "n"}], "+", "1"}]}], ",", 
       RowBox[{"n", "=", 
        FractionBox["n", "2"]}]}], "]"}], ";", 
     RowBox[{
      RowBox[{"data", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
      "=", "n"}]}]}], "]"}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"\"\<starter = \>\"", "<>", 
     RowBox[{"ToString", "[", "starter", "]"}]}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7675858155796328`*^9, 3.7675859296008053`*^9}, {
  3.767586135654312*^9, 3.767586227373701*^9}, {3.767586342274717*^9, 
  3.7675863598648205`*^9}, {3.7675865168251333`*^9, 3.767586979052001*^9}, {
  3.767587574727702*^9, 3.7675875854488*^9}, {3.7675876321357417`*^9, 
  3.767587708445936*^9}, {3.767587831527213*^9, 3.767587876423337*^9}, {
  3.7675884037027016`*^9, 3.7675884050393305`*^9}, {3.767588503235694*^9, 
  3.7675885056486473`*^9}, {3.7675886340689735`*^9, 3.76758863448689*^9}, {
  3.767588709999385*^9, 3.7675887174063683`*^9}, {3.767588771949271*^9, 
  3.7675888256990194`*^9}, {3.767588919062286*^9, 3.7675889531580086`*^9}, {
  3.7675890217422447`*^9, 3.767589048058748*^9}, {3.7675891668304906`*^9, 
  3.7675892478703947`*^9}},
 FontSize->16,
 CellLabel->"In[83]:=",ExpressionUUID->"4418c63c-1815-4e8f-853e-bcb7970dee3d"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2036, 48, 209, "Input",ExpressionUUID->"4418c63c-1815-4e8f-853e-bcb7970dee3d"]
}
]
*)

